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Hidden Gems 

• Browser 

• Code 

• Collection 

• Framework 

• Store 

• Loader 
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Cincom Smalltalk Talks 


• Cincom Smalltalk Roadmap 

• Hidden Gems in Cincom Smalltalk 

• New Native Windows Ul possibilities in Next 
Generation Cincom® ObjectStudio® 

• Development and Features of the new Cincom 
ObjectStudio Launcher 

• Cincom Smalltalk Protocols - New Features and Tools 

• Rapid Application Development with AppeX and 
Google Chrome Developer Tools 

• More XP-rience 
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What are Hidden Gems? 


Hidden Gems are useful 
techniques or product 
capabilities that may not be 
obvious 
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Hidden Gems 


• Know a great hidden gem? 

• Share! 

• Credit happily given 
to those suggesting! 
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Hidden Gems - Browserl 

• Sizing 

• Spawn 

• Hidden Tabs 

• Browser in context (New!) 

• Forward / Backwards (New!) 



M 
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served. 




Hidden Gems - Browser2 


• Zoom 

• Delimiters 

• Fonts 

• Settings 

• Workspace 
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Hidden Gems - Code Shortcuts 


• Iterator shortcut 

• Sorting 

• Logic 
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Hidden Gems - Iterator Shortcut 

evenNumbers := (1 to: 10) select:[:ea | ea even], 
squared := (1 to: 10) collect:[:ea | ea squared]. 
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Hidden Gems - Iterator Shortcut 

evenNumbers := (1 to: 10) select:[:ea | ea even], 
squared := (1 to: 10) collect:[:ea | ea squared]. 


evenNumbers := (1 to: 10) select: #even. 
squared := (1 to: 10) collect: #squared. 
'hello world' collect: #asUppercase 

• Use with do:, select:, reject:, collect:, etc 

• One argument, one message 



@cincomsmalltalk #ESUG1 6 


13 


©2016 Cincom Systems Inc. All Rights Reserved. 



Hidden Gems - Sorting 

When the objects know how to compare themselves 



sorted Numbers := myNumbers asSortedCollection 
sortedNumbers := myNumbers sort. 
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Hidden Gems - Sorting 


For more specific sorts: 

employees asSortedCollection:[:a :b | a lastname 
and subSorts: 

employees asSortedCollection:[:a :b | 
a lastname = b lastname 

ifTrue:[a firstname <= b firstname] 
ifFalse:[ a lastname <= b lastname] 
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Hidden Gems - Sorting 

Same as last slide, but simpler 


employees sorted: #lastname ascending. 

employees sorted: #lastname ascending, firstname ascending. 
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Hidden Gems - Logic 

x isNil ifTrue: [aBlock]. 
x isNil ifTrue: [aBlock] ifFalse:[aBlock]. 
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Hidden Gems - Logic 

x ifNil: [aBlock]. 

x ifNil: [nilBlock] ifNotNil: [notNilBlock]. 
x ifNotNil: [aBlock]. 
x ifNotNil: [notNilBlock] ifNil: [nilBlock] 
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Hidden Gems - Collections 

Treap 

• What is it? 

• Where can I find it? 

• What does it do? 

• Where should I use it? 

• Are there any drawbacks? 
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Hidden Gems -Treap 

allClasses := Core. Object allSubclasses. 
classDict := IdentityDictionary new. 

allClasses do:[:cl | classDict at: cl name put: cl allinstances size.]. 
classTreap := Treap new. 

allClasses do:[:cl | classTreap at: cl name put: cl allinstances size. ]. 
node := classTreap nodeAtKey: 'OrderedCollection' ifAbsent: []. 
node next 
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Hidden Gems - Frameworks 

Matrix / Poly for MapReduce 

MapReduce is a popular and effective technique used to 
apply concurrency to problems often involving large 
amounts of data, in order to improve performance. 

MapReduce is named after the functional programming 
functions map and reduce. 

The map function apples a function to each element in a 
list and reduce aggregates or combines the results. 
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Hidden Gems - Frameworks 


Matrix / Poly for MapReduce 



The map function apples a function to each element in a 
list and reduce aggregates or combines the results. 

In Smalltalk 

collect: 
fold: 
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Hidden Gems - Matrix / Poly for MapReduce 

wordCountFor: fileString 
| words | 

words := self parseFile: fileString. 

words := words collect:[:word | word select:[:char | char isAlphabetic] ]. 
words := words reject: #isEmpty. 

A words as Bag. 
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Hidden Gems - Matrix / Poly for MapReduce 

reduce: wordCounts 

"Combine the wordCounts and create a Dictionary summary" 

| aggregatedWords finalCounts | 

aggregatedWords := wordCounts fold:[:counts :newCounts | newCounts 
valuesAndCountsDo:[:word :n | counts add: word withOccurrences: n], counts ]. 

finalCounts := Dictionary new. 

aggregatedWords valuesAndCountsDo:[:word :count | finalCounts at: word put: count]. 
A finalCounts 
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Hidden Gems - Matrix / Poly for MapReduce 

runExampleLocal 

"self runExampleLocal" 

| files wordCounts summary results | 
files :=self myFiles. 

wordCounts := files collect:[:fileStr | self wordCountFor: fileStr ]. 

summary := self reduce: wordCounts. 

results := summary associations sort: #value descending. 

(results first: 1 00) do:[:ea [Transcript or; show: ea key; tab; show: ea value printstring ]. 
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Hidden Gems - Matrix / Poly for MapReduce 

runExample 

"self runExample" 

| files vms wordCounts summary results | 

files :=self myFiles. 

vms := Matrix. VirtualMachines new:3. 

wordCounts := [vms do:[:fileString | MapReduceExample wordCountFor: fileString] with: 
files] ensure:[vms release]. 

summary := self reduce: wordCounts. 

results := summary associations sort: #value descending. 

(results first: 1 00) do:[:ea |Transcript or; show: ea key; tab; show: ea value printstring ]. 
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Hidden Gems - Store 

Store API 
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Hidden Gems - Store API 

Blessings: 

• Development 

• ToReview 

• Released 
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Hidden Gems - Store API 

Blessings: 

• Ready for Alpha 

• Alpha 

• Ready for Beta 

• Beta 

• Ready for Production 

• Production 
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Hidden Gems - Store API 

Programmatically update your image 

session := StoreLoginFactory currentStoreSession. 

pkgs := (Registry allPackagesWithNewerlnDBIn: session) 
asSortedCollection: [:a :b | a name < b name]. 

pkgs do:[:pkg | pkg versions first loadSrc ]. 
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Hidden Gems - Loader 

VisualWorks- loader 

Great for having multiple versions installed 

VisualWorks XL - 4 byte loader 

Great for having multiple versions and development versions 
installed 
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Hidden Gems - Loader 

VisualWorks - loader 
.ini 

82 00 c:\VisualWorks\vw8.2\bin\win\vwnt.exe 
82 128 c:\VisualWorks\vw8.2\bin\win64\vwnt.exe 
81 00 c:\VisualWorks\vw8.1\bin\win\vwnt.exe 
81 128 c:\VisualWorks\vw8.1\bin\win64\vwnt.exe 
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Hidden Gems - Loader 

VisualWorksXL - 4 byte loader 
.ini 

82 00 00 00 C:\VisualWorks\VW8.2\bin\win\vwnt.exe?C:\VisualWorks\VW8.2 
82 128 00 00 C:\VisualWorks\VW8.2\bin\win64\vwnt.exe?C:\VisualWorks\VW8.2 
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Hidden Gems - Loader 


VisualWorksXL - 4 byte loader 

Using VisualWorksXL 

1 ) Move to a neutral place 

2) Set the image properties to use VisualWorksXL to open it 

3) Edit configuration file 

■ Signature 

- Vm path 

- Installation path 
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Questions? 




Thank You! 


Suzanne Fortman 

Program Director / Engineering Manager 

sfortman@cincom.com 

@SuzCST (Twitter) 

Arden Thomas 

Product Manager 
athomas@cincom.com 
@ArdenTCST (Twitter) 
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